home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Advisor / CD-ROM Advisor.iso / blender / blen40m / shared.dir / 00792_MOVIE SCRIPT.ls < prev    next >
Encoding:
Text File  |  1994-08-22  |  2.0 KB  |  84 lines
  1. on startMovie
  2.   global i, j, k, n, o, ADSET, BLENDER, DEST, volume, PLAYRATE
  3.   set the exitLock to 1
  4.   set the volume of sound 1 to 255
  5.   set the volume of sound 2 to 255
  6.   SETSPEAKER()
  7.   cursor(0)
  8.   installMenu(o)
  9.   set i to 0
  10. end
  11.  
  12. on initRearWindow theColor
  13.   global rwObj
  14.   if the machineType = 256 then
  15.     nothing()
  16.   else
  17.     if objectp(rwObj) then
  18.       rwObj(mdispose)
  19.     end if
  20.     set rwObj to RearWindow(mnew, "M")
  21.     rwObj(mIndexColorToWindow, theColor)
  22.   end if
  23. end
  24.  
  25. on disposeRearWindow
  26.   global rwObj
  27.   if the machineType = 256 then
  28.     nothing()
  29.   else
  30.     if objectp(rwObj) then
  31.       rwObj(mdispose)
  32.     end if
  33.   end if
  34. end
  35.  
  36. on CONTROLS
  37.   global CONTROLWINDOW, DEST
  38.   if objectp(CONTROLWINDOW) then
  39.     forget(CONTROLWINDOW)
  40.   end if
  41.   set horzOrigin to the stageLeft + 448
  42.   set vertOrigin to the stageTop
  43.   set CONTROLWINDOWrect to rect(horzOrigin, vertOrigin, horzOrigin + 192, vertOrigin + 60)
  44.   set CONTROLWINDOW to window "CONTROLS"
  45.   set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  46.   set the fileName of CONTROLWINDOW to DEST & "CONTROLS"
  47.   set the titleVisible of CONTROLWINDOW to 0
  48.   set the modal of CONTROLWINDOW to 0
  49.   set the windowType of CONTROLWINDOW to 2
  50.   open(CONTROLWINDOW)
  51. end
  52.  
  53. on endMOVIE
  54.   global CONTROLWINDOW, DEST
  55.   installMenu(0)
  56.   if objectp(CONTROLWINDOW) then
  57.     forget(CONTROLWINDOW)
  58.   end if
  59.   set horzOrigin to the stageLeft + 160
  60.   set vertOrigin to the stageTop + 130
  61.   set CONTROLWINDOWrect to rect(horzOrigin, vertOrigin, horzOrigin + 320, vertOrigin + 220)
  62.   set CONTROLWINDOW to window "CONTROL"
  63.   set the rect of CONTROLWINDOW to CONTROLWINDOWrect
  64.   set the fileName of CONTROLWINDOW to DEST & "CONTROL"
  65.   set the titleVisible of CONTROLWINDOW to 0
  66.   set the modal of window "CONTROL" to 1
  67.   sound stop 2
  68.   open(CONTROLWINDOW)
  69. end
  70.  
  71. on stopMovie
  72.   finishMovie()
  73. end
  74.  
  75. on finishMovie
  76.   global CONTROLWINDOW
  77.   set the modal of window "CONTROL.DIR" to 0
  78.   set the modal of window "CONTROLS.DIR" to 0
  79.   set the modal of window "endWIND.DIR" to 0
  80.   if objectp(CONTROLWINDOW) then
  81.     forget(CONTROLWINDOW)
  82.   end if
  83. end
  84.